home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / numbers.swg / 0047_Setting BITS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-05  |  719 b   |  27 lines
  1. {
  2.  >   This would seem like something simple but can
  3.  > someone explain how to
  4.  >   calculate what is included in the following
  5.  > statement once I have read
  6.  >   the variable:
  7. Looks like a user record of some BBS system or so...
  8.  
  9. Or did you want to know how to check / set the bits? }
  10.  
  11. FUNCTION GetBit (v, BitNumber: BYTE): BOOLEAN;
  12.    BEGIN
  13.       IF (v AND (1 SHL BitNumber))<>0 THEN
  14.          GetBit:=TRUE
  15.       ELSE
  16.          GetBit:=FALSE;
  17.    END;     {Returns TRUE if specified bit is set }
  18.  
  19. PROCEDURE SetBit (VAR v: Byte; BitNumber: Byte; SetReset: BOOLEAN);
  20.    BEGIN
  21.       IF SetReset THEN
  22.          v:=v OR (1 SHL BitNumber)
  23.       ELSE
  24.          v:=v AND NOT (1 SHL BitNumber);
  25.    END;
  26.  
  27.